home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 January / 64er_Magazin_87-01_1987_Markt__Technik_de.d64 / datasetten musik (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  806b  |  25 lines
  1. 0 goto7
  2. 1 reada,b:b=b*10:ifa=-1thenend
  3. 2 fori=1tob:sys49152,a:next:goto1
  4. 3 data160,6,80,6,55,6,40,6,28,6,28,6,20,3,20,3,20,3,20,3,28,9
  5. 4 data20,3,20,3,20,3,20,3,28,9,1,1,40,3,40,3,40,3,40,3,55,6,55,6,80,3,80,3
  6. 5 data80,3,80,3,160,8,1,2,230,6
  7. 6 data210,6,180,6,150,1,100,1,150,1,100,1,150,1,100,1,150,1,100,1,150,1,-1,-2
  8. 7 reada:ifa<>-2then7
  9. 8 fori=49152to49171:reada:pokei,a:next:restore:goto1
  10. 9 :
  11. 10 rem ********************************
  12. 11 rem ***     datasetten musik     ***
  13. 12 rem ***  von  andreas schindler  ***
  14. 13 rem ********************************
  15. 14 :
  16. 15 rem syntax :  sys49152,a (000-255)
  17. 16 data120,32,253,174,32,158,183,169,7,133,1,202,208,253,169,39,133,1,88,96
  18. 17 :
  19. 18 rem  das lied steht in den data-
  20. 19 rem  zeilen 3-6.  das maschinen-
  21. 20 rem  spracheprogramm in zeile 16
  22. 21 :
  23. 22 rem  a gibt die tonhoehe an
  24. 23 rem  b ist die zeitdauer
  25.